home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO62.LSP < prev    next >
Text File  |  1986-11-18  |  768b  |  21 lines
  1. ;Version 2.5 users only 
  2. (Defun C:Find () 
  3.        (Setq F (Getstring "\nEnter name of object to find: ")) 
  4.        (Setq COUNTER 0) 
  5.        (Setq E (Entnext)) 
  6.        (While E 
  7.               (Cond 
  8.                   ((= (Strcase F) (Cdr (Assoc 0 (Entget E)))) 
  9.                   (Setq Counter (1+ Counter))) 
  10.                   ((= (Strcase F) (Cdr (Assoc 2 (Entget E)))) 
  11.                   (Setq Counter (1+ Counter))) 
  12.               ) 
  13.               (Setq E (Entnext E)) 
  14.        ) 
  15.        (Prompt "There are ") 
  16.        (Prompt (Itoa Counter)) 
  17.        (Prompt " occurences of ") 
  18.        (Prompt (Strcase F)) 
  19.        (Prompt "\n") 
  20. ) 
  21.